Option Explicit
Sub E_Sample008()
    'ж}ҽƼƬïӰ
    Dim myWb  As Workbook
    Dim mySht As Worksheet
    Dim myRng As Range
    For Each myWb In Workbooks
        For Each mySht In myWb.Worksheets
            Set myRng = mySht.Cells.Find(what:="")	'wjM
            If Not myRng Is Nothing Then
                MsgBox myWb.Name & "" &mySht.Name & "" &myRng.Address
                Set myWb = Nothing				'
                Set mySht = Nothing
                Set myRng = Nothing
                Exit Sub
            End If
        Next
    Next
    MsgBox "SŦXxs"
    Set myWb = Nothing						'
    Set mySht = Nothing
    Set myRng = Nothing
End Sub
